home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 June / 1989-06.d64 / programmers page (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  837b  |  22 lines
  1. 100 ad=828:poke53280,14:poke53281,6
  2. 110 print chr$(147)"[154]rewrite: self-modifying basic":print
  3. 120 print "copyright 1989":print "compute! publications, inc."
  4. 130 print "all rights reserved":print
  5. 140 for i=ad to ad+109:read d:poke i,d:ck=ck+d:next
  6. 150 if ck<>13757 then print "error in data statements"
  7. 160 print "to use, enter:":print "sys"str$(ad)",line number,new line$"
  8. 170 data 032,253,174,032,138,173,032,247
  9. 180 data 183,032,019,166,144,090,165,095
  10. 190 data 133,251,165,096,133,252,032,253
  11. 200 data 174,032,158,173,032,163,182,170
  12. 210 data 240,069,201,089,176,069,133,002
  13. 220 data 160,000,177,034,153,000,002,200
  14. 230 data 196,002,208,246,169,000,153,000
  15. 240 data 002,165,122,072,165,123,072,169
  16. 250 data 000,133,122,169,002,133,123,032
  17. 260 data 121,165,104,133,123,104,133,122
  18. 270 data 136,132,002,160,004,177,251,240
  19. 280 data 014,169,032,196,002,176,003,185
  20. 290 data 252,001,145,251,200,208,238,096
  21. 300 data 076,227,168,076,113,165
  22.